home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / wildcat / platinum.zip / PRE401.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-09-15  |  570b  |  67 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  570 bytes  11/15/122  01:49:34am
  3. '! Code Segment Size  :455 bytes
  4. '! Data Segment Size  :4475 bytes
  5. '! String Segment Size:115 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim s4463 As String
  9.       Dim s4467 As String
  10.       Dim s4471 As String
  11.  
  12.       User.ScreenDisplay = 3
  13.       CarrierCheck(-1)
  14.    59 Open ProgPath + "SRPRELOG.CFG" For Input As 1
  15.       Input #1, s4463
  16.       Close 1
  17.       Do
  18.         Do
  19.           Do
  20.    96       Cls 
  21.             DisplayFile("PREMENU")
  22.             Locate 14, 27
  23.             Print "@0C@ What's it gonna be ? > ";
  24.             Do
  25.   124         s4467 = UCase(InKey(1213417543))
  26.               If (InStr("LWDG", s4467) > 0 = 0) = 0 Then GoTo 169
  27.             Loop
  28.   169       Cls 
  29.             s4471 = UCase(s4467)
  30.             If (s4471 = "L") = 0 Then
  31.               GoTo 216
  32.             End If
  33.   209       End 
  34.           Loop
  35.   216     Cls 
  36.           If (s4471 = "W") = 0 Then
  37.             GoTo 301
  38.           End If
  39.   245     Cls 
  40.           Print ""
  41.           Print "@0C@ Now Loading ... "
  42.           Delay 1
  43.           Cls 
  44.           WhoIsOnline 
  45.           Print ""
  46.         Loop
  47.         GoTo 436
  48.   301   If (s4471 = "D") = 0 Then
  49.         Else
  50.   327     Cls 
  51.           Print ""
  52.           GoTo 360
  53.           GoTo 59
  54.           Print " "
  55.   360     Cls 
  56.           SendFile(ProgPath + s4463, 1213417543)
  57.         End If
  58.   381   If ((s4471 = "G") = 0) = 0 Then GoTo 407
  59.       Loop
  60.   407 Cls 
  61.       DisplayFile("GOODBYE")
  62.       Print " "
  63.       Goodbye 1213417543
  64.   436 End 
  65.       End 
  66.       End 
  67.